extern int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *c__, real *s);
